Shareware Grab Bag/Shareware Grab Bag.iso/007/boostrs.arc/DOWS.PAS

Pascal/Delphi Source File | 1980-01-01 | 2.0 KB | 81 lines

{ --------------------------------------
  DOWS returns day of week for any valid
  Gregorian Date
  -------------------------------------- }
Function DOWS( MM, DD, CCYY : Integer) : AnyString;

begin
   InLine ( $1E/
            $E8/$A8/$00/
            $EB/$0D/$90/
            $00/$03/$02/$05/$00/$03/
            $05/$01/$04/$06/$02/$04/
            $83/$C3/$03/
            $8B/$FB/
            $8B/$5E/$08/
            $8B/$4E/$06/
            $8B/$56/$04/
            $83/$FB/$03/
            $73/$01/
            $4A/
            $01/$DF/
            $4F/
            $2E/$02/$0D/
            $8B/$C2/
            $BB/$64/$00/
            $30/$FF/
            $F6/$F3/
            $51/
            $50/
            $B1/$02/
            $D2/$CC/
            $B1/$06/
            $D2/$EC/
            $8A/$DC/
            $58/
            $B1/$02/
            $D2/$C8/
            $B1/$06/
            $D2/$E8/
            $B1/$02/
            $8A/$D4/
            $D2/$EA/
            $59/
            $00/$D0/
            $B7/$05/
            $F6/$E7/
            $30/$FF/
            $01/$D8/
            $01/$C8/
            $BA/$07/$00/
            $F6/$F2/
            $8A/$C4/
            $30/$E4/
            $E8/$42/$00/
            $EB/$46/$90/
            $53/$75/$6E/$64/$61/$79/$20/$20/$20/
            $4D/$6F/$6E/$64/$61/$79/$20/$20/$20/
            $54/$75/$65/$73/$64/$61/$79/$20/$20/
            $57/$65/$64/$6E/$65/$73/$64/$61/$79/
            $54/$68/$75/$72/$73/$64/$61/$79/$20/
            $46/$72/$69/$64/$61/$79/$20/$20/$20/
            $53/$61/$74/$75/$72/$64/$61/$79/$20/
            $8B/$DC/
            $36/$8B/$1F/
            $C3/
            $83/$C3/$03/
            $8B/$F3/
            $B9/$09/$00/
            $F6/$E1/
            $01/$C6/
            $0E/
            $1F/
            $16/
            $07/
            $88/$4E/$0A/
            $8D/$7E/$0B/
            $FC/
            $F3/$A4/
            $1F/$5D);
end;